home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbvar.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-12-28  |  7.6 KB  |  161 lines
  1. (*===========================================================================*)
  2. (* Global variables                                                          *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989, 1990, 1991 by H. Roy Engehausen.  All rights      *)
  5. (*   reserved.                                                               *)
  6. (*                                                                           *)
  7. (*===========================================================================*)
  8.  
  9. (*---------------------------------------------------------------------------*)
  10. (* Geneeral temp for people to use                                           *)
  11. (*---------------------------------------------------------------------------*)
  12.  
  13. VAR
  14.   temp              : WORD;
  15.  
  16. (*---------------------------------------------------------------------------*)
  17. (* Process communications                                                    *)
  18. (*---------------------------------------------------------------------------*)
  19.  
  20. VAR
  21.   main_switch       : BOOLEAN;
  22.   shutdown_switch   : BOOLEAN;
  23.   dead_tcb_list     : tcb_ptr;
  24.   kill_printer      : BOOLEAN;
  25.  
  26. (*---------------------------------------------------------------------------*)
  27. (* Debugging info                                                            *)
  28. (*---------------------------------------------------------------------------*)
  29.  
  30.   signal_place      : ^WORD;
  31.   signal_dummy      : WORD;
  32.   main_cs           : WORD;
  33.  
  34. (*---------------------------------------------------------------------------*)
  35. (* Date and time control -- All refer to right now                           *)
  36. (*      Ticks since Jan 1, 1980.  One tick = 2 seconds                       *)
  37. (*---------------------------------------------------------------------------*)
  38.  
  39.   current_day_time  : LONGINT;         (* Current time in my format          *)
  40.   todays_date_time  : STRING[11];      (* Today in string format YYMMDD/HHMM *)
  41.   todays_dow        : WORD;            (* Today's day of week                *)
  42.   sec100            : WORD;            (* Current 1/100ths of a second       *)
  43.   today_time        : DATETIME;        (* Current time in structure format   *)
  44.  
  45.   last_midnight     : LONGINT;         (* Previous midnight in my format     *)
  46.  
  47. (*---------------------------------------------------------------------------*)
  48. (* Up time clock                                                             *)
  49. (*     Ticks since midnight the day the BBS was started.  One tick = .01 sec.*)
  50. (*---------------------------------------------------------------------------*)
  51.  
  52.   up_time           : LONGINT;         (* Current up time                    *)
  53.   up_days           : BYTE;            (* Days BBS is up                     *)
  54.  
  55. (*---------------------------------------------------------------------------*)
  56. (* Wakeup control                                                            *)
  57. (*---------------------------------------------------------------------------*)
  58.  
  59.   wakeup_force      : BOOLEAN;         (* Operator forced wakeup via GK      *)
  60.   wakeup_time       : LONGINT;         (* Next wakeup time                   *)
  61.   wakeup_did_something : BOOLEAN;
  62.  
  63. (*---------------------------------------------------------------------------*)
  64. (* Status window needs update                                                *)
  65. (*---------------------------------------------------------------------------*)
  66.  
  67.   status_window_change : BOOLEAN;
  68.  
  69. (*---------------------------------------------------------------------------*)
  70. (* Edit window is busy                                                       *)
  71. (*---------------------------------------------------------------------------*)
  72.  
  73.   edit_window_busy     : BOOLEAN;
  74.   edit_exitcode        : BYTE;
  75.   edit_operation       : BYTE;    (* 0 = normal edit, 1 = review *)
  76.   edit_parm            : POINTER;
  77.  
  78. (*---------------------------------------------------------------------------*)
  79. (* TCB / port control                                                        *)
  80. (*---------------------------------------------------------------------------*)
  81.  
  82.   ring_tcb           : tcb_ptr;
  83.   ring_port          : port_block_ptr;
  84.   overhead_tcb_count : BYTE;
  85.   alive_tcb_count    : BYTE;
  86.  
  87.   dummy_port         : port_block_type;
  88.  
  89.   main_tcb           : tcb_ptr;
  90.  
  91. (*---------------------------------------------------------------------------*)
  92. (* Active TCB info                                                           *)
  93. (*---------------------------------------------------------------------------*)
  94.  
  95.   active_port  : port_block_ptr;
  96.   active_tcb   : tcb_ptr;
  97.  
  98. (*---------------------------------------------------------------------------*)
  99. (* Msg information                                                           *)
  100. (*---------------------------------------------------------------------------*)
  101.  
  102.   msg_index_end     : msg_index_ptr;
  103.   msg_index_start   : msg_index_ptr;
  104.   msg_counter_ok    : WORD;
  105.   msg_counter_kill  : WORD;
  106.  
  107. (*---------------------------------------------------------------------------*)
  108. (* Actions                                                                   *)
  109. (*---------------------------------------------------------------------------*)
  110.  
  111.   first_msg_action : action_msg_ptr;
  112.  
  113. (*---------------------------------------------------------------------------*)
  114. (* Forward control                                                           *)
  115. (*---------------------------------------------------------------------------*)
  116.  
  117.   fwd_command     : STRING;
  118.   fwd_out_busy    : BOOLEAN;
  119.   msg_route_list  : msg_r_ptr;
  120.   msg_route_num   : WORD;              (* Number of highest msg in routes    *)
  121.   msg_route_force : BOOLEAN;           (* TRUE signifies a OPERATOR forced   *)
  122.                                        (* reorg of routes via GF command     *)
  123.  
  124. (*---------------------------------------------------------------------------*)
  125. (* Procedure to execute                                                      *)
  126. (*---------------------------------------------------------------------------*)
  127.  
  128.   proc_addr       : POINTER;
  129.  
  130. (*---------------------------------------------------------------------------*)
  131. (* Inter-procedure communications                                            *)
  132. (*---------------------------------------------------------------------------*)
  133.  
  134.   io_file_size    : LONGINT;
  135.  
  136. (*---------------------------------------------------------------------------*)
  137. (* Data for SYSOP                                                            *)
  138. (*---------------------------------------------------------------------------*)
  139.  
  140.   op_busy         : BOOLEAN;
  141.  
  142. (*---------------------------------------------------------------------------*)
  143. (* Capture data                                                              *)
  144. (*---------------------------------------------------------------------------*)
  145.  
  146.   capture_this_window  : BYTE;
  147.   capture_file         : text;
  148.  
  149. (*---------------------------------------------------------------------------*)
  150. (* Hierarchical search info (HLOOKUP)                                        *)
  151. (*---------------------------------------------------------------------------*)
  152.  
  153.   last_h_msg  : WORD;
  154.  
  155. (*---------------------------------------------------------------------------*)
  156. (* Trace info                                                                *)
  157. (*---------------------------------------------------------------------------*)
  158.  
  159.   trace_file  : ^TEXT;
  160.   trace_count : BYTE;
  161.